home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / lib / perl / sys / file.ph < prev    next >
Encoding:
Text File  |  1991-08-12  |  1.7 KB  |  61 lines
  1. if (!defined &_FILE) {
  2.     eval 'sub _FILE {1;}';
  3.     eval 'sub FOPEN {(-1);}';
  4.     eval 'sub FREAD {00001;}';
  5.     eval 'sub FWRITE {00002;}';
  6.     if (!defined &F_DUPFD) {
  7.     eval 'sub FNDELAY {00004;}';
  8.     eval 'sub FAPPEND {00010;}';
  9.     }
  10.     eval 'sub FMARK {00020;}';
  11.     eval 'sub FDEFER {00040;}';
  12.     if (!defined &F_DUPFD) {
  13.     eval 'sub FASYNC {00100;}';
  14.     }
  15.     eval 'sub FSHLOCK {00200;}';
  16.     eval 'sub FEXLOCK {00400;}';
  17.     eval 'sub FMASK {00113;}';
  18.     eval 'sub FCNTLCANT {( &FREAD| &FWRITE| &FMARK| &FDEFER| &FSHLOCK| &FEXLOCK);}';
  19.     eval 'sub FCREAT {01000;}';
  20.     eval 'sub FTRUNC {02000;}';
  21.     eval 'sub FEXCL {04000;}';
  22.     if (!defined &F_DUPFD) {
  23.     eval 'sub F_DUPFD {0;}';
  24.     eval 'sub F_GETFD {1;}';
  25.     eval 'sub F_SETFD {2;}';
  26.     eval 'sub F_GETFL {3;}';
  27.     eval 'sub F_SETFL {4;}';
  28.     eval 'sub F_GETOWN {5;}';
  29.     eval 'sub F_SETOWN {6;}';
  30.     eval 'sub F_GETLK {7;}';
  31.     eval 'sub F_SETLK {8;}';
  32.     eval 'sub F_SETLKW {9;}';
  33.     eval 'sub F_RGETLK {10;}';
  34.     eval 'sub F_RSETLK {11;}';
  35.     eval 'sub F_CNVT {12;}';
  36.     eval 'sub F_RSETLKW {13;}';
  37.     }
  38.     eval 'sub O_RDONLY {000;}';
  39.     eval 'sub O_WRONLY {001;}';
  40.     eval 'sub O_RDWR {002;}';
  41.     eval 'sub O_NDELAY { &FNDELAY;}';
  42.     eval 'sub O_APPEND { &FAPPEND;}';
  43.     eval 'sub O_CREAT { &FCREAT;}';
  44.     eval 'sub O_TRUNC { &FTRUNC;}';
  45.     eval 'sub O_EXCL { &FEXCL;}';
  46.     eval 'sub O_MASTER {010000;}';
  47.     eval 'sub O_PFS_MASTER {020000;}';
  48.     eval 'sub LOCK_SH {1;}';
  49.     eval 'sub LOCK_EX {2;}';
  50.     eval 'sub LOCK_NB {4;}';
  51.     eval 'sub LOCK_UN {8;}';
  52.     eval 'sub F_OK {0;}';
  53.     eval 'sub X_OK {1;}';
  54.     eval 'sub W_OK {2;}';
  55.     eval 'sub R_OK {4;}';
  56.     eval 'sub L_SET {0;}';
  57.     eval 'sub L_INCR {1;}';
  58.     eval 'sub L_XTND {2;}';
  59. }
  60. 1;
  61.